home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / shared.cst / 00003_interact new.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  3.2 KB  |  116 lines
  1. --on exitFrame
  2. --  global gLastSprite, gpausetime, gbuttonup, gLastMouseCast, glist, gTimer
  3. --  
  4. --  if rollover(23) then --check for restart 
  5. --    puppetsprite 23,true
  6. --    set the castnum of sprite 23 to 65
  7. --  else
  8. --    if not(the mouseDown) then puppetsprite 23, false
  9. --  end if
  10. --  
  11. --  put the mousecast into backcast
  12. --  put getAt(glist,2) into sprite5sc
  13. --  put getAt(glist,3) into sprite6sc
  14. --  put getAt(glist,4) into sprite7sc 
  15. --  
  16. --  if backcast = sprite5sc then
  17. --    puppetsprite 6,false
  18. --    puppetsprite 7,false
  19. --    updateStage
  20. --    put backcast into gLastMouseCast
  21. --    puppetSprite 5, true
  22. --    set the castnum of sprite 5 to sprite5sc + 1
  23. --    updateStage
  24. --    set gbuttonup to true
  25. --    
  26. --  else if (backcast <> sprite5sc + 1) and (gLastMouseCast = sprite5sc) then
  27. --    if gbuttonup then    
  28. --      puppetSprite 6,false
  29. --      puppetsprite 7,false
  30. --      set gbuttonup to false
  31. --      puppetsprite 5, false
  32. --      updateStage      
  33. --    end if
  34. --  end if  
  35. --  
  36. --  if backcast = sprite6sc then
  37. --    puppetsprite 5,false
  38. --    puppetSprite 7,false
  39. --    updatestage
  40. --    put backcast into gLastMouseCast 
  41. --    puppetSprite 6, true
  42. --    set the castnum of sprite 6 to sprite6sc + 1
  43. --    updateStage
  44. --    set gbuttonup to true
  45. --    
  46. --  else if (backcast <> sprite6sc + 1) and (gLastMouseCast = sprite6sc) then
  47. --    if gbuttonup then
  48. --      puppetSprite 5,false
  49. --      puppetSprite 7,false
  50. --      set gbuttonup to false
  51. --      puppetsprite 6,false
  52. --      updateStage      
  53. --    end if
  54. --  end if  
  55. --  
  56. --  if backcast = sprite7sc then
  57. --    puppetsprite 5,false
  58. --    puppetSprite 6,false
  59. --    updatestage
  60. --    put backcast into gLastMouseCast
  61. --    puppetSprite 7, true
  62. --    set the castnum of sprite 7 to sprite7sc + 1
  63. --    updateStage
  64. --    set gbuttonup to true
  65. --    
  66. --  else if (backcast <> sprite7sc + 1) and (gLastMouseCast = sprite7sc) then
  67. --    if gbuttonup then
  68. --      puppetSprite 5,false
  69. --      puppetSprite 6,false
  70. --      set gbuttonup to false
  71. --      puppetsprite 7,false
  72. --      updateStage
  73. --    end if
  74. --  end if 
  75. --  
  76. --  repeat with i = 11 to 16 -- button channels
  77. --    if rollover(i) then
  78. --      put i into RollSprite
  79. --      if RollSprite = gLastSprite then
  80. --        exit repeat
  81. --      else
  82. --        puppetSound 2, getAt(["qv210.aif","p70.aif","v70.aif","p50.aif","v50.aif","140.aif"], i-10)
  83. --        puppetsprite i,true
  84. --        puppetsprite 10,true
  85. --        put the castnum of sprite(i) into lastcast
  86. --        set the castnum of sprite(i) to lastcast + 1
  87. --        updateStage 
  88. --        set the castnum of sprite(10) to lastcast - 1
  89. --        puppetTransition 26, 1, 1
  90. --        exit repeat
  91. --      end if
  92. --    end if
  93. --  end repeat
  94. --  
  95. --  if gLastSprite<>RollSprite then
  96. --    puppetsprite gLastSprite, false
  97. --    updateStage    
  98. --    if not(rollover(gLastSprite)) then
  99. --      sound stop 2 
  100. --      puppetsprite 10, false
  101. --      --puppetTransition 26, 1, 1 
  102. --    end if
  103. --    put RollSprite into gLastSprite
  104. --  end if  
  105. --  
  106. --  if (the ticks > gTimer + 60*60) and (the lastEvent > 60*60)then
  107. --    if the castNum of sprite 48 then pauseMovie
  108. --    if soundBusy(1) then sound stop 1
  109. --    clearSprites
  110. --    go "Main"
  111. --  else        
  112. --    go to the frame    
  113. --  end if
  114. --  
  115. --end exitFrame
  116.